home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume23 / transfig / part01 next >
Encoding:
Internet Message Format  |  1991-06-19  |  61.0 KB
  1. Path: j.cc.purdue.edu!mentor.cc.purdue.edu!noose.ecn.purdue.edu!samsung!usc!apple!bbn.com!papaya.bbn.com!rsalz
  2. From: rsalz@bbn.com (Rich Salz)
  3. Newsgroups: comp.sources.unix
  4. Subject: v23i014:  Tools for creating TeX documents with portable graphics, Part01/06
  5. Message-ID: <2811@litchi.bbn.com>
  6. Date: 31 Aug 90 13:43:06 GMT
  7. Organization: BBN Systems and Technologies, Cambridge MA
  8. Lines: 2075
  9. Approved: rsalz@uunet.UU.NET
  10. X-Checksum-Snefru: 639ca2be 5786fa36 6e706f0c 04c648f2
  11.  
  12. Submitted-by: Micah Beck <beck@cs.cornell.edu>
  13. Posting-number: Volume 23, Issue 14
  14. Archive-name: transfig/part01
  15.  
  16. TransFig is a set of tools for creating TeX documents with graphics
  17. which are portable, in the sense that they can be printed in a wide
  18. variety of environments.
  19.  
  20. The transfig directory contains the source for the transfig command
  21. which generates a Makefile which translates Fig code to various graphics
  22. description languages using the fig2dev program.  In previous releases,
  23. this command was implemented as a shell script.
  24.  
  25. Drivers currently exist for the following graphics langauges:
  26. (E)EPIC macros, LaTeX picture environment, PIC, PiCTeX, and PostScript.
  27. Fig2dev can be configured with a subset of these drivers
  28.  
  29. XMicah Beck                beck@cs.cornell.edu
  30. XDept of Computer Science
  31. XCornell University
  32.  
  33. #! /bin/sh
  34. # This is a shell archive.  Remove anything before this line, then unpack
  35. # it by saving it into a file and typing "sh file".  To overwrite existing
  36. # files, type "sh file -c".  You can also feed this as standard input via
  37. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  38. # will see the following message at the end:
  39. #        "End of archive 1 (of 6)."
  40. # Contents:  transfig transfig/Makefile transfig/README
  41. #   transfig/VERSION transfig/doc transfig/doc/manual
  42. #   transfig/doc/manual/Makefile transfig/doc/manual/README
  43. #   transfig/doc/manual/setup12.tex transfig/doc/manual/threepart.sty
  44. #   transfig/doc/manual/trans.fig.uu transfig/doc/manual/trans.tex
  45. #   transfig/doc/manual/transfig.tex transfig/doc/transfig.1
  46. #   transfig/fig2dev transfig/fig2dev/Makefile transfig/fig2dev/NOTES
  47. #   transfig/fig2dev/alloc.h transfig/fig2dev/arrow.c
  48. #   transfig/fig2dev/dev transfig/fig2dev/dev/Makefile
  49. #   transfig/fig2dev/dev/genbox.c transfig/fig2dev/dev/picfonts.h
  50. #   transfig/fig2dev/dev/texfonts.h transfig/fig2dev/drivers.h
  51. #   transfig/fig2dev/fig2dev.h transfig/fig2dev/fig2ps2tex
  52. #   transfig/fig2dev/free.c transfig/fig2dev/getopt.c
  53. #   transfig/fig2dev/newfont.h transfig/fig2dev/pi.h
  54. #   transfig/fig2dev/pic2tpic transfig/patchlevel.h transfig/transfig
  55. #   transfig/transfig/Makefile transfig/transfig/mkfile.c
  56. #   transfig/transfig/sys.c transfig/transfig/transfig.c
  57. #   transfig/transfig/transfig.h transfig/transfig/txfile.c
  58. # Wrapped by beck@rocky on Thu May 17 15:56:10 1990
  59. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  60. if test ! -d 'transfig' ; then
  61.     echo shar: Creating directory \"'transfig'\"
  62.     mkdir 'transfig'
  63. fi
  64. if test -f 'transfig/Makefile' -a "${1}" != "-c" ; then 
  65.   echo shar: Will not clobber existing file \"'transfig/Makefile'\"
  66. else
  67. echo shar: Extracting \"'transfig/Makefile'\" \(763 characters\)
  68. sed "s/^X//" >'transfig/Makefile' <<'END_OF_FILE'
  69. X#
  70. X# Top level Makefile for TransFig
  71. X#
  72. X# to make fig2dev:         type "make"
  73. X#
  74. X# to install:              set  BINDIR in Makefile
  75. X#               type "make install"
  76. X#
  77. X# to make manual:          type "make manual"
  78. X
  79. X# directory in which to install executables
  80. XBINDIR = /usr/local/bin
  81. XMANDIR = /usr/local/man/man1
  82. X
  83. Xall:
  84. X    cd transfig; make
  85. X    cd fig2dev; make
  86. X
  87. Xmanual: 
  88. X    cd doc/manual; make; latex manual; latex manual
  89. X
  90. Xinstall:    all
  91. X    install -c -s transfig/transfig$(TARGET_ARCH) $(BINDIR)/transfig
  92. X    install -c -s fig2dev/fig2dev$(TARGET_ARCH) $(BINDIR)/fig2dev
  93. X    install -c fig2dev/fig2ps2tex $(BINDIR)
  94. X    install -c fig2dev/pic2tpic $(BINDIR)
  95. X    install -c doc/transfig.1 doc/fig2dev.1 $(MANDIR)
  96. X
  97. Xclean:
  98. X    cd transfig; make clean
  99. X    cd fig2dev; make clean
  100. X    cd doc/manual; make clean
  101. END_OF_FILE
  102. if test 763 -ne `wc -c <'transfig/Makefile'`; then
  103.     echo shar: \"'transfig/Makefile'\" unpacked with wrong size!
  104. fi
  105. # end of 'transfig/Makefile'
  106. fi
  107. if test -f 'transfig/README' -a "${1}" != "-c" ; then 
  108.   echo shar: Will not clobber existing file \"'transfig/README'\"
  109. else
  110. echo shar: Extracting \"'transfig/README'\" \(1513 characters\)
  111. sed "s/^X//" >'transfig/README' <<'END_OF_FILE'
  112. XTransFig is a set of tools for creating TeX documents with graphics
  113. Xwhich are portable, in the sense that they can be printed in a wide
  114. Xvariety of environments.
  115. X
  116. XThe transfig directory contains the source for the transfig command
  117. Xwhich generates a Makefile which translates Fig code to various graphics
  118. Xdescription languages using the fig2dev program.  In previous releases,
  119. Xthis command was implemented as a shell script.
  120. X
  121. XThe fig2dev directory contains a general program for translating from
  122. XFig code to other graphics desciption languages.  The dev subdirectory
  123. Xcontains a library of output drivers used by fig2dev.
  124. X
  125. XDrivers currently exist for the following graphics langauges:
  126. X(E)EPIC macros, LaTeX picture environment, PIC, PiCTeX, and PostScript.
  127. XFig2dev can be configured with a subset of these drivers
  128. X
  129. XThe doc directory contains man pages for fig2dev and for the transfig command.
  130. XThe subdirectory doc/manual contains a manual for using TransFig to create
  131. Xdocuments with portable graphics.  The manual also contains a reference
  132. Xguide describing Fig code in detail, and a description of TFX, an extension to
  133. XFig code which is supported by the translators in this package.
  134. X
  135. XMicah Beck                beck@cs.cornell.edu
  136. XDept of Computer Science
  137. XCornell University
  138. X
  139. X1 January 1990
  140. X--------------
  141. X
  142. XVersion 2.0 note: The PostScript translation implemented by fig2dev
  143. Xnow supports both the TFX version of Fig code and the V2.0, the dialect
  144. Xused by XFig Version 2.0.  The other translations support only TFX.
  145. X
  146. X1 May 1990
  147. X
  148. END_OF_FILE
  149. if test 1513 -ne `wc -c <'transfig/README'`; then
  150.     echo shar: \"'transfig/README'\" unpacked with wrong size!
  151. fi
  152. # end of 'transfig/README'
  153. fi
  154. if test -f 'transfig/VERSION' -a "${1}" != "-c" ; then 
  155.   echo shar: Will not clobber existing file \"'transfig/VERSION'\"
  156. else
  157. echo shar: Extracting \"'transfig/VERSION'\" \(31 characters\)
  158. sed "s/^X//" >'transfig/VERSION' <<'END_OF_FILE'
  159. XTransFig Version 2.0 Release 1
  160. END_OF_FILE
  161. if test 31 -ne `wc -c <'transfig/VERSION'`; then
  162.     echo shar: \"'transfig/VERSION'\" unpacked with wrong size!
  163. fi
  164. # end of 'transfig/VERSION'
  165. fi
  166. if test ! -d 'transfig/doc' ; then
  167.     echo shar: Creating directory \"'transfig/doc'\"
  168.     mkdir 'transfig/doc'
  169. fi
  170. if test ! -d 'transfig/doc/manual' ; then
  171.     echo shar: Creating directory \"'transfig/doc/manual'\"
  172.     mkdir 'transfig/doc/manual'
  173. fi
  174. if test -f 'transfig/doc/manual/Makefile' -a "${1}" != "-c" ; then 
  175.   echo shar: Will not clobber existing file \"'transfig/doc/manual/Makefile'\"
  176. else
  177. echo shar: Extracting \"'transfig/doc/manual/Makefile'\" \(219 characters\)
  178. sed "s/^X//" >'transfig/doc/manual/Makefile' <<'END_OF_FILE'
  179. X# 
  180. X# Makefile: TransFig makefile for translation of figures into latex
  181. X# 
  182. X 
  183. Xall: tex-list
  184. X 
  185. Xtrans.tex: trans.fig
  186. X    fig2dev -Llatex  trans.fig trans.tex
  187. X 
  188. Xtex-list: trans.tex
  189. Xtrans.tex: Makefile
  190. X 
  191. Xclean:
  192. X    rm -f trans.tex
  193. END_OF_FILE
  194. if test 219 -ne `wc -c <'transfig/doc/manual/Makefile'`; then
  195.     echo shar: \"'transfig/doc/manual/Makefile'\" unpacked with wrong size!
  196. fi
  197. # end of 'transfig/doc/manual/Makefile'
  198. fi
  199. if test -f 'transfig/doc/manual/README' -a "${1}" != "-c" ; then 
  200.   echo shar: Will not clobber existing file \"'transfig/doc/manual/README'\"
  201. else
  202. echo shar: Extracting \"'transfig/doc/manual/README'\" \(434 characters\)
  203. sed "s/^X//" >'transfig/doc/manual/README' <<'END_OF_FILE'
  204. XThis directory contains a manual which describes TransFig and how to use it.
  205. XThe manual includes TransFig figures, which have been translated into
  206. XLaTeX picture environment commands.  To generate the manual, just run
  207. X"latex manual".
  208. X
  209. XFor purposes of mailing, the Fig code file trans.fig may have been 
  210. Xommited from this directory.  In its place is the uuencoded version
  211. Xtrans.fig.uu.  To unpack it, just run "uudecode <trans.fig.uu".
  212. END_OF_FILE
  213. if test 434 -ne `wc -c <'transfig/doc/manual/README'`; then
  214.     echo shar: \"'transfig/doc/manual/README'\" unpacked with wrong size!
  215. fi
  216. # end of 'transfig/doc/manual/README'
  217. fi
  218. if test -f 'transfig/doc/manual/setup12.tex' -a "${1}" != "-c" ; then 
  219.   echo shar: Will not clobber existing file \"'transfig/doc/manual/setup12.tex'\"
  220. else
  221. echo shar: Extracting \"'transfig/doc/manual/setup12.tex'\" \(1385 characters\)
  222. sed "s/^X//" >'transfig/doc/manual/setup12.tex' <<'END_OF_FILE'
  223. X% Set up LaTeX for an article.
  224. X% This should work for LaTeX 2.08.
  225. X% This file contains everything up to
  226. X% the \begin{document} command,
  227. X% and should be read in with an \input command.
  228. X\documentstyle[12pt,threepart]{article}
  229. X
  230. X% Formatting niceties.
  231. X
  232. X% ensure that all pages are the same length
  233. X\flushbottom{}
  234. X
  235. X% bump up the widow and club penalties
  236. X\makeatletter
  237. X\clubpenalty=\@highpenalty
  238. X\widowpenalty=\@highpenalty
  239. X\makeatother
  240. X
  241. X% save the value of \baselinestretch (this is the global default)
  242. X\let\BLS=\baselinestretch
  243. X 
  244. X% These allow switching interline spacing.  The size changes ensure that the
  245. X% change takes effect immediately.
  246. X\makeatletter
  247. X\newcommand{\singlespacing}{\let\CS=\@currsize\renewcommand{\baselinestretch}{1}\tiny\CS}
  248. X\newcommand{\doublespacing}{\let\CS=\@currsize\renewcommand{\baselinestretch}{1.75}\tiny\CS}
  249. X\newcommand{\normalspacing}{\let\CS=\@currsize\renewcommand{\baselinestretch}{\BLS}\tiny\CS}
  250. X\makeatother
  251. X
  252. X% undo LaTeX's decision to make citation labels be \hbox'd.
  253. X\makeatletter
  254. X\def\@cite#1#2{[#1\if@tempswa , #2\fi]}
  255. X\makeatother
  256. X
  257. X
  258. X\setlength{\unitlength}{1mm}
  259. X
  260. X% Number footnotes with symbols.
  261. X\fnsymbol{footnote}
  262. X
  263. X\newtheorem{theorem}{Theorem}
  264. X\newtheorem{lemma}{Lemma}
  265. X\newtheorem{corollary}{Corollary}
  266. X\newtheorem{definition}{Definition}
  267. X
  268. X% Definition of the proof-environment:
  269. X\newenvironment{proof}{{\bf Proof:}\quad}{\hfill$\Box$\newline}
  270. X
  271. END_OF_FILE
  272. if test 1385 -ne `wc -c <'transfig/doc/manual/setup12.tex'`; then
  273.     echo shar: \"'transfig/doc/manual/setup12.tex'\" unpacked with wrong size!
  274. fi
  275. # end of 'transfig/doc/manual/setup12.tex'
  276. fi
  277. if test -f 'transfig/doc/manual/threepart.sty' -a "${1}" != "-c" ; then 
  278.   echo shar: Will not clobber existing file \"'transfig/doc/manual/threepart.sty'\"
  279. else
  280. echo shar: Extracting \"'transfig/doc/manual/threepart.sty'\" \(1428 characters\)
  281. sed "s/^X//" >'transfig/doc/manual/threepart.sty' <<'END_OF_FILE'
  282. X% Three part head and foot macros. 1/87
  283. X% Lance Berc
  284. X% Olsen & Associates    mcvax!unizh!olsen!lance@seismo.css.gov
  285. X% Seefeldstrasse 233
  286. X% CH-8008 Zurich
  287. X
  288. X% How users can set the head and foot text.
  289. X\def\lhead#1{\gdef\@lhead{#1}} \def\lfoot#1{\gdef\@lfoot{#1}}
  290. X\def\chead#1{\gdef\@chead{#1}} \def\cfoot#1{\gdef\@cfoot{#1}}
  291. X\def\rhead#1{\gdef\@rhead{#1}} \def\rfoot#1{\gdef\@rfoot{#1}}
  292. X
  293. X% Initialization of the head and foot text.
  294. X% By default the page number is at the center of the foot and everything
  295. X% else is empty.
  296. X\def\@lhead{} \def\@lfoot{}
  297. X\def\@chead{} \def\@cfoot{{\rm \thepage}}
  298. X\def\@rhead{} \def\@rfoot{}
  299. X
  300. X% Put together a three part header or footer given the left, center and
  301. X% right text. The \lap commands put the text into an hbox of zero size,
  302. X% so overlapping text is not detected (it just overlaps).
  303. X\def\@threepart#1#2#3{\rlap{#1} \hfil {#2} \hfil \llap{#3}}
  304. X
  305. X% Swap the notices on odd and even pages when twosided.
  306. X\def\ps@threepartheadings
  307. X    {
  308. X    \def\@oddhead{\@threepart{\@lhead}{\@chead}{\@rhead}}
  309. X    \def\@oddfoot{\@threepart{\@lfoot}{\@cfoot}{\@rfoot}}
  310. X
  311. X    \if@twoside
  312. X    \def\@evenhead{\@threepart{\@rhead}{\@chead}{\@lhead}}
  313. X    \def\@evenfoot{\@threepart{\@rfoot}{\@cfoot}{\@lfoot}}
  314. X    \else
  315. X    \def\@evenhead{\@threepart{\@lhead}{\@chead}{\@rhead}}
  316. X    \def\@evenfoot{\@threepart{\@lfoot}{\@cfoot}{\@rfoot}}
  317. X    \fi
  318. X    }
  319. X
  320. X% Default page style
  321. X\ps@threepartheadings
  322. X
  323. X% Default footers
  324. X\cfoot{\thepage}
  325. END_OF_FILE
  326. if test 1428 -ne `wc -c <'transfig/doc/manual/threepart.sty'`; then
  327.     echo shar: \"'transfig/doc/manual/threepart.sty'\" unpacked with wrong size!
  328. fi
  329. # end of 'transfig/doc/manual/threepart.sty'
  330. fi
  331. if test -f 'transfig/doc/manual/trans.fig.uu' -a "${1}" != "-c" ; then 
  332.   echo shar: Will not clobber existing file \"'transfig/doc/manual/trans.fig.uu'\"
  333. else
  334. echo shar: Extracting \"'transfig/doc/manual/trans.fig.uu'\" \(3346 characters\)
  335. sed "s/^X//" >'transfig/doc/manual/trans.fig.uu' <<'END_OF_FILE'
  336. Xbegin 644 trans.fig
  337. XM(T9)1R Q+C0M5$98"C@P(#(*,B Q(# @,2 P(# @," P(# N,# P(#$@, H)
  338. XM," P(#$N,# P(#0N,# P(#@N,# P"@D@-#,Y(#$Y-" S,SD@,C$Y(#DY.3D@
  339. XM.3DY.0HR(#$@," Q(# @," P(# @,"XP,# @,2 P"@DP(# @,2XP,# @-"XP
  340. XM,# @."XP,# *"2 Q-3D@,3DT(#(U.2 R,3D@.3DY.2 Y.3DY"C(@,B Q(#$@
  341. XM," P(# @," T+C P," P(# *"2 T-CD@,3<P(#0V.2 Q.#D@-# Y(#$X.2 T
  342. XM,#D@,3<P(#0V.2 Q-S @.3DY.2 Y.3DY"C(@,2 P(#$@," P(# @," P+C P
  343. XM," Q(# *"3 @," Q+C P," T+C P," X+C P, H)(#,Q-2 R.#(@,S@U(#,Q
  344. XM-R Y.3DY(#DY.3D*,B Q(# @,2 P(# @," P(# N,# P(#$@, H)," P(#$N
  345. XM,# P(#0N,# P(#@N,# P"@D@,CDY(#(S.2 R.3D@,C4T(#DY.3D@.3DY.0HR
  346. XM(#$@," Q(# @," P(# @-"XP,# @,2 P"@DP(# @,2XP,# @-"XP,# @."XP
  347. XM,# *"2 R-3<@,C@P(#$T," S,3D@.3DY.2 Y.3DY"C(@,2 P(#$@," P(# @
  348. XM," T+C P," Q(# *"3 @," Q+C P," T+C P," X+C P, H)(#(X,R R.#(@
  349. XM,C$S(#,Q-R Y.3DY(#DY.3D*,B Q(# @,2 P(# @," P(#0N,# P(#$@, H)
  350. XM," P(#$N,# P(#0N,# P(#@N,# P"@D@,CDY(#(X,B R.3D@,S$W(#DY.3D@
  351. XM.3DY.0HR(#(@," Q(# @-3$Y(# @," P+C P," P(# *"2 R-CD@,C4Y(#(V
  352. XM.2 R-SD@,S(Y(#(W.2 S,CD@,C4Y(#(V.2 R-3D@.3DY.2 Y.3DY"C(@,2 P
  353. XM(#$@," P(# @," T+C P," Q(# *"3 @," Q+C P," T+C P," X+C P, H)
  354. XM(#,S.2 R-SD@-#4Y(#,Q.2 Y.3DY(#DY.3D*,B Q(# @,2 P(# @," P(# N
  355. XM,# P(#$@, H)," P(#$N,# P(#0N,# P(#@N,# P"@D@,CDY(#$Y-" R.3D@
  356. XM,C$Y(#DY.3D@.3DY.0HR(#$@," Q(# @," P(# @,"XP,# @," Q"@DP(# @
  357. XM,2XP,# @-"XP,# @."XP,# *"2 S,3D@,C$Y(#,V.2 Q.30@.3DY.2 Y.3DY
  358. XM"C(@,2 P(#$@," P(# @," P+C P," Q(# *"3 @," Q+C P," T+C P," X
  359. XM+C P, H)(#(R.2 Q.30@,C<Y(#(Q.2 Y.3DY(#DY.3D*,B Q(# @,2 P(# @
  360. XM," P(#0N,# P(#$@, H)," P(#$N,# P(#0N,# P(#@N,# P"@D@-#4Y(#,T
  361. XM," T-3D@,S4U(#DY.3D@.3DY.0HR(#(@,2 Q(# @," P(# @-"XP,# @," P
  362. XM"@D@-#@Y(#,U.2 T.#D@,S<Y(#0R.2 S-SD@-#(Y(#,U.2 T.#D@,S4Y(#DY
  363. XM.3D@.3DY.0HR(#$@," Q(# @," P(# @-"XP,# @,2 P"@DP(# @,2XP,# @
  364. XM-"XP,# @."XP,# *"2 T-3D@,S@T(#0U.2 S.3D@.3DY.2 Y.3DY"C(@,B Q
  365. XM(#$@," P(# @," T+C P," P(# *"2 Q.#D@,3<P(#$X.2 Q.#D@,3(Y(#$X
  366. XM.2 Q,CD@,3<P(#$X.2 Q-S @.3DY.2 Y.3DY"C(@,B Q(#$@," U,3D@," P
  367. XM(#0N,# P(# @, H)(#(U.2 Q-CD@,C4Y(#$X.2 Q.3D@,3@Y(#$Y.2 Q-CD@
  368. XM,C4Y(#$V.2 Y.3DY(#DY.3D*,B R(#$@,2 P(# @," P(#0N,# P(# @, H)
  369. XM(#,R.2 Q-S @,S(Y(#$X.2 R-CD@,3@Y(#(V.2 Q-S @,S(Y(#$W," Y.3DY
  370. XM(#DY.3D*,B R(#$@,2 P(# @," P(#0N,# P(# @, H)(#,Y.2 Q-S @,SDY
  371. XM(#$X.2 S,SD@,3@Y(#,S.2 Q-S @,SDY(#$W," Y.3DY(#DY.3D*-" Q(# @
  372. XM," P(# @," P+C P," P(#$V(#8T(#0S.2 Q.#(@>&%P9W)A<&@!"C0@,2 P
  373. XM(# @," P(# @,"XP,# @," Q-B U-B R,CD@,3@R(&=N=7!L;W0!"C0@,2 P
  374. XM(# @," P(# @,"XP,# @," Q-B V-" S-CD@,3@R('!L;W0R9FEG 0HT(#$@
  375. XM," P(# @," P(# N,# P(#$@,38@-38@,CDY(#(W,R!F:6<R9&5V 0HT(#$@
  376. XM,2 P(# @," P(# N,# P(#$@,38@-C0@,S<Y(#,T.2!C;VUM86YD<P$*-" Q
  377. XM(#$@," P(# @," P+C P," Q(#$V(#4V(#,W.2 S,S,@*$4I15!)0P$*-" Q
  378. XM(#$@," P(# @," P+C P," P(#$V(#0X(#(Q.2 S-#@@4V-R:7!T 0HT(#$@
  379. XM,2 P(# @," P(# N,# P(# @,38@,S(@,C$Y(#,S,B!0;W-T 0HT(#$@,2 P
  380. XM(# @," P(# N,# P(# @,38@-#@@,3,V(#,S,R!0:4-495@!"C0@,2 Q(# @
  381. XM," P(# @,"XP,# @," Q-B T." Q,S<@,S0X(&UA8W)O<P$*-" Q(#$@," P
  382. XM(# @," P+C P," Q(#$V(#0P(#(Y.2 S,S,@3&%495@!"C0@,2 Q(# @," P
  383. XM(# @,"XP,# @,2 Q-B V-" R.3D@,S0Y(&-O;6UA;F1S 0HT(#$@,2 P(# @
  384. XM," P(# N,# P(# @,38@-C0@,S Q(#(S,R!&:6<@8V]D90$*-" Q(#$@," P
  385. XM(# @," P+C P," Q(#$V(#,R(#0U.2 T,3,@='!I8P$*-" Q(#$@," P(# @
  386. XM," P+C P," Q(#$V(#8T(#0U.2 T,S @<W!E8VEA;',!"C0@,2 Q(# @," P
  387. XM(# @,"XP,# @,2 Q-B R-" T-3D@,S,S(%!)0P$*-" Q(# @," P(# @," P
  388. XM+C P," Q(#$V(#,R(#0U.2 S-S(@='!I8P$*-" Q(# @," P(# @," P+C P
  389. XM," P(#$V(#(T(#$U.2 Q.#(@9FEG 0HT(#$@," P(# @," P(# N,# P(# @
  390. X7,38@-38@,CDY(#$X,B!P:6,R9FEG 0HT
  391. X 
  392. Xend
  393. END_OF_FILE
  394. if test 3346 -ne `wc -c <'transfig/doc/manual/trans.fig.uu'`; then
  395.     echo shar: \"'transfig/doc/manual/trans.fig.uu'\" unpacked with wrong size!
  396. fi
  397. # end of 'transfig/doc/manual/trans.fig.uu'
  398. fi
  399. if test -f 'transfig/doc/manual/trans.tex' -a "${1}" != "-c" ; then 
  400.   echo shar: Will not clobber existing file \"'transfig/doc/manual/trans.tex'\"
  401. else
  402. echo shar: Extracting \"'transfig/doc/manual/trans.tex'\" \(2190 characters\)
  403. sed "s/^X//" >'transfig/doc/manual/trans.tex' <<'END_OF_FILE'
  404. X\setlength{\unitlength}{0.0125in}%
  405. X\begin{picture}(379,264)(113,409)
  406. X\thicklines
  407. X\put(270,560){\framebox(60,20){}}
  408. X\put(200,650){\dashbox{4}(60,20){}}
  409. X\put(258,559){\vector(-3,-1){117}}
  410. X\put(410,650){\dashbox{4}(60,19){}}
  411. X\put(316,557){\vector( 2,-1){ 70}}
  412. X\put(300,600){\vector( 0,-1){ 15}}
  413. X\put(284,557){\vector(-2,-1){ 70}}
  414. X\put(300,557){\vector( 0,-1){ 35}}
  415. X\put(160,645){\vector( 4,-1){100}}
  416. X\put(440,645){\vector(-4,-1){100}}
  417. X\put(300,645){\vector( 0,-1){ 25}}
  418. X\put(370,645){\vector(-2,-1){ 50}}
  419. X\put(230,645){\vector( 2,-1){ 50}}
  420. X\put(460,499){\vector( 0,-1){ 15}}
  421. X\put(430,460){\dashbox{4}(60,20){}}
  422. X\put(460,455){\vector( 0,-1){ 15}}
  423. X\put(130,650){\dashbox{4}(60,19){}}
  424. X\put(340,560){\vector( 3,-1){120}}
  425. X\put(270,650){\dashbox{4}(60,19){}}
  426. X\put(340,650){\dashbox{4}(60,19){}}
  427. X\put(440,657){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm xapgraph}}}
  428. X\put(230,657){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm gnuplot}}}
  429. X\put(370,657){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm plot2fig}}}
  430. X\put(300,566){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm fig2dev}}}
  431. X\put(380,490){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm commands}}}
  432. X\put(380,506){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm (E)EPIC}}}
  433. X\put(220,491){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm Script}}}
  434. X\put(220,507){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm Post}}}
  435. X\put(137,506){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm PiCTeX}}}
  436. X\put(138,491){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm macros}}}
  437. X\put(300,506){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm LaTeX}}}
  438. X\put(300,490){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm commands}}}
  439. X\put(302,606){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm Fig code}}}
  440. X\put(460,426){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm tpic}}}
  441. X\put(460,409){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm specials}}}
  442. X\put(460,506){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm PIC}}}
  443. X\put(460,467){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm tpic}}}
  444. X\put(160,657){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm fig}}}
  445. X\put(300,657){\makebox(0,0)[b]{\raisebox{0pt}[0pt][0pt]{\elvrm pic2fig}}}
  446. X\end{picture}
  447. END_OF_FILE
  448. if test 2190 -ne `wc -c <'transfig/doc/manual/trans.tex'`; then
  449.     echo shar: \"'transfig/doc/manual/trans.tex'\" unpacked with wrong size!
  450. fi
  451. # end of 'transfig/doc/manual/trans.tex'
  452. fi
  453. if test -f 'transfig/doc/manual/transfig.tex' -a "${1}" != "-c" ; then 
  454.   echo shar: Will not clobber existing file \"'transfig/doc/manual/transfig.tex'\"
  455. else
  456. echo shar: Extracting \"'transfig/doc/manual/transfig.tex'\" \(38 characters\)
  457. sed "s/^X//" >'transfig/doc/manual/transfig.tex' <<'END_OF_FILE'
  458. X\typeout{TransFig: figures in LaTeX.}
  459. END_OF_FILE
  460. if test 38 -ne `wc -c <'transfig/doc/manual/transfig.tex'`; then
  461.     echo shar: \"'transfig/doc/manual/transfig.tex'\" unpacked with wrong size!
  462. fi
  463. # end of 'transfig/doc/manual/transfig.tex'
  464. fi
  465. if test -f 'transfig/doc/transfig.1' -a "${1}" != "-c" ; then 
  466.   echo shar: Will not clobber existing file \"'transfig/doc/transfig.1'\"
  467. else
  468. echo shar: Extracting \"'transfig/doc/transfig.1'\" \(1886 characters\)
  469. sed "s/^X//" >'transfig/doc/transfig.1' <<'END_OF_FILE'
  470. X.TH TRANSFIG 1 "29 March 1989"
  471. X.SH NAME
  472. Xtransfig \- creates a makefile for portable LaTeX figures
  473. X.SH SYNOPSIS
  474. X.B transfig
  475. X[ -L \fIlanguage\fR ]
  476. X[ -M \fImakefile\fR ]
  477. X[ -T \fItexfile\fR ]
  478. X[ \fIcontrol_specs\fR figfile ... ] ...]
  479. X.SH DESCRIPTION
  480. X.I Transfig
  481. Xcreates a makefile to translate figures described in Fig code, PostScript,
  482. Xor PIC into a specified LaTeX graphics \fIlanguage\fR.
  483. XPostScript and PIC files are identified by the suffixes ".ps" and ".pic"
  484. Xrespectively;
  485. XFig files can be specified either with or without the suffix ".fig" .
  486. XTransfig also creates a TeX macro file appropriate to the target language.
  487. X.SH OPTIONS
  488. XThe \fIlanguage\fR specifier must be either
  489. X.T
  490. X.BR epic ,
  491. X.BR eepic ,
  492. X.BR eepicemu ,
  493. X.BR latex ,
  494. X.BR pictex ,
  495. X.BR ps ,
  496. X.BR psfig ,
  497. X.BR tpic ,
  498. Xor
  499. X.BR null .
  500. XThe specifier
  501. X.B psfig
  502. Xis like the 
  503. X.B ps
  504. Xspecifier, except that it
  505. Xmake use of the psfig macro package.
  506. XThe specifier 
  507. X.B null
  508. Xresults in the figures being replaced by empty boxes of the
  509. Xappropriate size.
  510. XIf no language is specified,
  511. X.B epic
  512. Xis the default.
  513. X.PP
  514. XThe names of the makefile and TeX macro file can be set with the
  515. X-M and -T options.
  516. XThe default names are "Makefile" and "transfig.tex", respectively.
  517. X.PP
  518. XControl specifiers are 
  519. X.TP
  520. X\fB\-m\fI mag\fR
  521. Xset the magnification at which the figure is rendered (default 1.0).
  522. X.TP
  523. X\fB\-f\fI font\fR
  524. Xset the default font family used for text objects (default "\fBcmr\fR").
  525. X.TP
  526. X\fB\-s \fIfontsize\fR
  527. Xset the default font size (in points) for text objects (default 11*\fImag\fR).
  528. X.PP
  529. XIf there is no scaling, the default font is "\fB\\elvrm\fR".
  530. XLanguage and control specifiers may occur more than once;
  531. Xthey affect the translation of files which appear to their
  532. Xright in the argument list. 
  533. XIf no files are specified, then "*.fig" is assumed.
  534. X.SH "SEE ALSO"
  535. Xfig(1),
  536. Xfig2dev(1),
  537. Xpic(1),
  538. Xpic2fig(1),
  539. X.SH AUTHOR
  540. XMicah Beck (beck@svax.cs.cornell.edu)
  541. END_OF_FILE
  542. if test 1886 -ne `wc -c <'transfig/doc/transfig.1'`; then
  543.     echo shar: \"'transfig/doc/transfig.1'\" unpacked with wrong size!
  544. fi
  545. # end of 'transfig/doc/transfig.1'
  546. fi
  547. if test ! -d 'transfig/fig2dev' ; then
  548.     echo shar: Creating directory \"'transfig/fig2dev'\"
  549.     mkdir 'transfig/fig2dev'
  550. fi
  551. if test -f 'transfig/fig2dev/Makefile' -a "${1}" != "-c" ; then 
  552.   echo shar: Will not clobber existing file \"'transfig/fig2dev/Makefile'\"
  553. else
  554. echo shar: Extracting \"'transfig/fig2dev/Makefile'\" \(784 characters\)
  555. sed "s/^X//" >'transfig/fig2dev/Makefile' <<'END_OF_FILE'
  556. X#    Fig2dev : General Fig code translation program
  557. X#
  558. X#    Micah Beck
  559. X#    Modified from f2ps
  560. X#
  561. X
  562. X#
  563. X# to include drivers for the following langauges, 
  564. X# add the corresponding symbol to the DRIVERS list
  565. X#
  566. X# DRIVERS = -DEPIC -DLATEX -DPIC  -DPICTEX -DPS
  567. X#
  568. XDRIVERS = -DEPIC -DLATEX -DPIC  -DPICTEX -DPS
  569. X
  570. XFIGOBJ = arrow.o bound.o free.o read.o read1_3.o latex_line.o
  571. XOBJ = fig2dev.o getopt.o $(FIGOBJ)
  572. X
  573. XLIB = lib$(TARGET_ARCH).a
  574. XLIBS = dev/$(LIB)
  575. X
  576. X#CFLAGS =  -g $(DRIVERS)
  577. XCFLAGS = -O $(DRIVERS)
  578. X
  579. XTARGET = fig2dev$(TARGET_ARCH)
  580. X
  581. X$(TARGET): $(OBJ) $(LIBS) 
  582. X    $(CC) $(TARGET_ARCH) $(OBJ) $(LIBS) -lm -o $(TARGET)
  583. X
  584. X$(LIBS): always
  585. X    (cd dev; make)
  586. X
  587. X$(OBJ): fig2dev.h drivers.h
  588. X
  589. X
  590. X#########
  591. Xalways:
  592. X
  593. Xtidy: 
  594. X    rm -f *.o
  595. X    (cd dev; make tidy)
  596. X
  597. Xclean : 
  598. X    rm -f *.o fig2dev fig2dev-* core
  599. X    (cd dev; make clean)
  600. END_OF_FILE
  601. if test 784 -ne `wc -c <'transfig/fig2dev/Makefile'`; then
  602.     echo shar: \"'transfig/fig2dev/Makefile'\" unpacked with wrong size!
  603. fi
  604. # end of 'transfig/fig2dev/Makefile'
  605. fi
  606. if test -f 'transfig/fig2dev/NOTES' -a "${1}" != "-c" ; then 
  607.   echo shar: Will not clobber existing file \"'transfig/fig2dev/NOTES'\"
  608. else
  609. echo shar: Extracting \"'transfig/fig2dev/NOTES'\" \(1019 characters\)
  610. sed "s/^X//" >'transfig/fig2dev/NOTES' <<'END_OF_FILE'
  611. XA brief history of Fig translation programs.
  612. X
  613. XFig2dev is derived from f2p, the original program written by the author of Fig,
  614. XSupoj Sutanthavibul of the University of Texas at Austin, to translate Fig
  615. Xcode to PIC.  The devlopment is somewhat complex.
  616. X
  617. XSupoj adapted f2p for PostScript ouput: f2ps.
  618. X
  619. XI adapted f2p for PiCTeX output: fig2tex.
  620. X
  621. XFrank Schmuck, then a graduate student at Cornell, adapted fig2tex for
  622. XLaTeX picture environment output: fig2latex.
  623. X
  624. XFrank also enhanced Fig, giving us Fig-FS.  I in turn extended the
  625. Xdefinition of Fig code and added corresponding features to Fig-FS.
  626. XI implemented this extension (TFX) in fig2tex, and in fig2ps, which
  627. Xis an adaption of f2ps.
  628. X
  629. XConrad Kwok, then of the University of California at Davis, adapted
  630. Xfig2tex for (E)EPIC output: fig2epic.
  631. X
  632. XHe also enhanced f2p to support the TFX extension: fig2pic.
  633. X
  634. XI have now reorganized the five programs named fig2* into drivers for
  635. Xa single tranlation program: fig2dev.
  636. X
  637. XMicah Beck
  638. XCornell Dept. of Computer Science
  639. X6 May 1989
  640. END_OF_FILE
  641. if test 1019 -ne `wc -c <'transfig/fig2dev/NOTES'`; then
  642.     echo shar: \"'transfig/fig2dev/NOTES'\" unpacked with wrong size!
  643. fi
  644. # end of 'transfig/fig2dev/NOTES'
  645. fi
  646. if test -f 'transfig/fig2dev/alloc.h' -a "${1}" != "-c" ; then 
  647.   echo shar: Will not clobber existing file \"'transfig/fig2dev/alloc.h'\"
  648. else
  649. echo shar: Extracting \"'transfig/fig2dev/alloc.h'\" \(640 characters\)
  650. sed "s/^X//" >'transfig/fig2dev/alloc.h' <<'END_OF_FILE'
  651. Xextern char    *malloc();
  652. Xextern char    *calloc();
  653. X
  654. X#define        Line_malloc(z)        z = (F_line*)malloc(LINOBJ_SIZE)
  655. X#define        Spline_malloc(z)    z = (F_spline*)malloc(SPLOBJ_SIZE)
  656. X#define        Ellipse_malloc(z)    z = (F_ellipse*)malloc(ELLOBJ_SIZE)
  657. X#define        Arc_malloc(z)        z = (F_arc*)malloc(ARCOBJ_SIZE)
  658. X#define        Compound_malloc(z)    z = (F_compound*)malloc(COMOBJ_SIZE)
  659. X#define        Text_malloc(z)        z = (F_text*)malloc(TEXOBJ_SIZE)
  660. X#define        Point_malloc(z)        z = (F_point*)malloc(POINT_SIZE)
  661. X#define        Control_malloc(z)    z = (F_control*)malloc(CONTROL_SIZE)
  662. X#define        Arrow_malloc(z)        z = (F_arrow*)malloc(ARROW_SIZE)
  663. X
  664. Xextern char    Err_mem[];
  665. Xextern char    Err_incomp[];
  666. END_OF_FILE
  667. if test 640 -ne `wc -c <'transfig/fig2dev/alloc.h'`; then
  668.     echo shar: \"'transfig/fig2dev/alloc.h'\" unpacked with wrong size!
  669. fi
  670. # end of 'transfig/fig2dev/alloc.h'
  671. fi
  672. if test -f 'transfig/fig2dev/arrow.c' -a "${1}" != "-c" ; then 
  673.   echo shar: Will not clobber existing file \"'transfig/fig2dev/arrow.c'\"
  674. else
  675. echo shar: Extracting \"'transfig/fig2dev/arrow.c'\" \(1366 characters\)
  676. sed "s/^X//" >'transfig/fig2dev/arrow.c' <<'END_OF_FILE'
  677. X#include <stdio.h>
  678. X#include "alloc.h"
  679. X#include "object.h"
  680. X
  681. Xstatic double        forward_arrow_wid = 4;
  682. Xstatic double        forward_arrow_ht = 8;
  683. Xstatic int        forward_arrow_type = 0;
  684. Xstatic int        forward_arrow_style = 0;
  685. Xstatic double        forward_arrow_thickness = 1;
  686. X
  687. Xstatic double        backward_arrow_wid = 4;
  688. Xstatic double        backward_arrow_ht = 8;
  689. Xstatic int        backward_arrow_type = 0;
  690. Xstatic int        backward_arrow_style = 0;
  691. Xstatic double        backward_arrow_thickness = 1;
  692. X
  693. XF_arrow *
  694. Xforward_arrow()
  695. X{
  696. X    F_arrow        *a;
  697. X
  698. X    if (NULL == (Arrow_malloc(a))) {
  699. X        put_msg(Err_mem);
  700. X        return(NULL);
  701. X        }
  702. X    a->type = forward_arrow_type;
  703. X    a->style = forward_arrow_style;
  704. X    a->thickness = forward_arrow_thickness;
  705. X    a->wid = forward_arrow_wid;
  706. X    a->ht = forward_arrow_ht;
  707. X    return(a);
  708. X    }
  709. X
  710. XF_arrow *
  711. Xbackward_arrow()
  712. X{
  713. X    F_arrow        *a;
  714. X
  715. X    if (NULL == (Arrow_malloc(a))) {
  716. X        put_msg(Err_mem);
  717. X        return(NULL);
  718. X        }
  719. X    a->type = backward_arrow_type;
  720. X    a->style = backward_arrow_style;
  721. X    a->thickness = backward_arrow_thickness;
  722. X    a->wid = backward_arrow_wid;
  723. X    a->ht = backward_arrow_ht;
  724. X    return(a);
  725. X    }
  726. X
  727. XF_arrow *
  728. Xmake_arrow(type, style, thickness, wid, ht)
  729. Xint    type, style;
  730. Xdouble    thickness, wid, ht;
  731. X{
  732. X    F_arrow        *a;
  733. X
  734. X    if (NULL == (Arrow_malloc(a))) {
  735. X        put_msg(Err_mem);
  736. X        return(NULL);
  737. X        }
  738. X    a->type = type;
  739. X    a->style = style;
  740. X    a->thickness = thickness;
  741. X    a->wid = wid;
  742. X    a->ht = ht;
  743. X    return(a);
  744. X    }
  745. END_OF_FILE
  746. if test 1366 -ne `wc -c <'transfig/fig2dev/arrow.c'`; then
  747.     echo shar: \"'transfig/fig2dev/arrow.c'\" unpacked with wrong size!
  748. fi
  749. # end of 'transfig/fig2dev/arrow.c'
  750. fi
  751. if test ! -d 'transfig/fig2dev/dev' ; then
  752.     echo shar: Creating directory \"'transfig/fig2dev/dev'\"
  753.     mkdir 'transfig/fig2dev/dev'
  754. fi
  755. if test -f 'transfig/fig2dev/dev/Makefile' -a "${1}" != "-c" ; then 
  756.   echo shar: Will not clobber existing file \"'transfig/fig2dev/dev/Makefile'\"
  757. else
  758. echo shar: Extracting \"'transfig/fig2dev/dev/Makefile'\" \(312 characters\)
  759. sed "s/^X//" >'transfig/fig2dev/dev/Makefile' <<'END_OF_FILE'
  760. X#
  761. X#    Fig2dev Driver Library Makefile
  762. X#
  763. X
  764. XINCLUDES = -I..
  765. X#CFLAGS = -g $(INCLUDES)
  766. XCFLAGS =  -O $(INCLUDES)
  767. X
  768. XOBJ =  genps.o genlatex.o genepic.o genpictex.o genpic.o genbox.o
  769. XLIB = lib$(TARGET_ARCH).a
  770. X
  771. X$(LIB) : $(OBJ)
  772. X    ar r $(LIB) $(OBJ)
  773. X    ranlib $(LIB)
  774. X
  775. X#########
  776. Xtidy: 
  777. X    rm -f *.o
  778. X
  779. Xclean :
  780. X    rm -f *.o core lib*.a
  781. X
  782. END_OF_FILE
  783. if test 312 -ne `wc -c <'transfig/fig2dev/dev/Makefile'`; then
  784.     echo shar: \"'transfig/fig2dev/dev/Makefile'\" unpacked with wrong size!
  785. fi
  786. # end of 'transfig/fig2dev/dev/Makefile'
  787. fi
  788. if test -f 'transfig/fig2dev/dev/genbox.c' -a "${1}" != "-c" ; then 
  789.   echo shar: Will not clobber existing file \"'transfig/fig2dev/dev/genbox.c'\"
  790. else
  791. echo shar: Extracting \"'transfig/fig2dev/dev/genbox.c'\" \(800 characters\)
  792. sed "s/^X//" >'transfig/fig2dev/dev/genbox.c' <<'END_OF_FILE'
  793. X/* 
  794. X *    genbox : Empty box driver for fig2dev translator
  795. X *
  796. X*/
  797. X#include <stdio.h>
  798. X#include "object.h"
  799. X#include "fig2dev.h"
  800. X
  801. Xvoid genbox_option(opt, optarg)
  802. Xchar opt, *optarg;
  803. X{
  804. X      switch (opt) {
  805. X
  806. X    case 's':
  807. X    case 'f':
  808. X    case 'm':
  809. X    case 'L':
  810. X        break;
  811. X
  812. X     default:
  813. X        put_msg(Err_badarg, opt, "box");
  814. X        exit(1);
  815. X    }
  816. X}
  817. X
  818. Xvoid genbox_start(objects)
  819. XF_compound    *objects;
  820. X{
  821. X    double ppi;
  822. X
  823. X    if (0 == (ppi = (double)objects->nwcorner.x)) {
  824. X        fprintf(stderr, "Resolution is zero!! default to 80 ppi\n");
  825. X        ppi = 80.0;
  826. X        }
  827. X
  828. X    /* draw box */
  829. X        fprintf(tfp, "\\makebox[%.3fin]{\\rule{0in}{%.3fin}}\n",
  830. X        (urx-llx)*mag/ppi, (ury-lly)*mag/ppi);
  831. X    }
  832. X
  833. Xstruct driver dev_box = {
  834. X    genbox_option,
  835. X    genbox_start,
  836. X    gendev_null,
  837. X    gendev_null,
  838. X    gendev_null,
  839. X    gendev_null,
  840. X    gendev_null,
  841. X    gendev_null,
  842. X    INCLUDE_TEXT
  843. X};
  844. END_OF_FILE
  845. if test 800 -ne `wc -c <'transfig/fig2dev/dev/genbox.c'`; then
  846.     echo shar: \"'transfig/fig2dev/dev/genbox.c'\" unpacked with wrong size!
  847. fi
  848. # end of 'transfig/fig2dev/dev/genbox.c'
  849. fi
  850. if test -f 'transfig/fig2dev/dev/picfonts.h' -a "${1}" != "-c" ; then 
  851.   echo shar: Will not clobber existing file \"'transfig/fig2dev/dev/picfonts.h'\"
  852. else
  853. echo shar: Extracting \"'transfig/fig2dev/dev/picfonts.h'\" \(458 characters\)
  854. sed "s/^X//" >'transfig/fig2dev/dev/picfonts.h' <<'END_OF_FILE'
  855. X/*  The selection of font names may be site dependent */
  856. X
  857. Xchar        *fontnames[] = {
  858. X            "R", "R",        /* default */
  859. X            "R",            /* roman */
  860. X            "B",            /* bold */
  861. X            "I",            /* italic */
  862. X            "H",            /* sans serif */
  863. X            "C"            /* typewriter */
  864. X        };
  865. X#define MAXFONT 5
  866. X#define MAXFONTSIZE 108
  867. X
  868. X#define PICFONT(F)    (fontnames[((F) <= MAXFONT) ? (F)+1 : MAXFONT])
  869. X#define PICFONTSIZE(S)  ((S) > 0 ? \
  870. X                ((S) <= MAXFONTSIZE ? \
  871. X                    (S) : \
  872. X                    MAXFONTSIZE) : \
  873. X                font_size)
  874. END_OF_FILE
  875. if test 458 -ne `wc -c <'transfig/fig2dev/dev/picfonts.h'`; then
  876.     echo shar: \"'transfig/fig2dev/dev/picfonts.h'\" unpacked with wrong size!
  877. fi
  878. # end of 'transfig/fig2dev/dev/picfonts.h'
  879. fi
  880. if test -f 'transfig/fig2dev/dev/texfonts.h' -a "${1}" != "-c" ; then 
  881.   echo shar: Will not clobber existing file \"'transfig/fig2dev/dev/texfonts.h'\"
  882. else
  883. echo shar: Extracting \"'transfig/fig2dev/dev/texfonts.h'\" \(815 characters\)
  884. sed "s/^X//" >'transfig/fig2dev/dev/texfonts.h' <<'END_OF_FILE'
  885. Xstatic char        *fontnames[] = {
  886. X            "rm", "rm",        /* default */
  887. X            "rm",            /* roman */
  888. X            "bf",            /* bold */
  889. X            "it",            /* italic */
  890. X            "sf",             /* sans serif */
  891. X            "tt"            /* typewriter */
  892. X        };
  893. X#define MAXFONT 5
  894. X
  895. X/* The selection of font names may be site dependent.
  896. X * Not all fonts are preloaded at all sizes.
  897. X */
  898. X
  899. Xstatic char        *fontsizes[] = {
  900. X            "elv", "elv",        /* default */
  901. X            "fiv", "fiv", "fiv", "fiv",     /* small fonts */
  902. X            "fiv",            /* five point font */
  903. X            "six", "sev", "egt",    /* etc */
  904. X            "nin", "ten", "elv",
  905. X            "twl", "twl", "frtn",    
  906. X            "frtn", "frtn", "svtn",
  907. X            "svtn", "svtn", "twty",
  908. X            "twty", "twty", "twty", "twty", "twfv"
  909. X            };
  910. X#define MAXFONTSIZE 25
  911. X
  912. X#define TEXFONT(F)    (fontnames[((F) <= MAXFONT) ? (F)+1 : MAXFONT])
  913. X#define TEXFONTSIZE(S)    (fontsizes[((S) <= MAXFONTSIZE) ? (S)+1 : MAXFONTSIZE])
  914. END_OF_FILE
  915. if test 815 -ne `wc -c <'transfig/fig2dev/dev/texfonts.h'`; then
  916.     echo shar: \"'transfig/fig2dev/dev/texfonts.h'\" unpacked with wrong size!
  917. fi
  918. # end of 'transfig/fig2dev/dev/texfonts.h'
  919. fi
  920. if test -f 'transfig/fig2dev/drivers.h' -a "${1}" != "-c" ; then 
  921.   echo shar: Will not clobber existing file \"'transfig/fig2dev/drivers.h'\"
  922. else
  923. echo shar: Extracting \"'transfig/fig2dev/drivers.h'\" \(549 characters\)
  924. sed "s/^X//" >'transfig/fig2dev/drivers.h' <<'END_OF_FILE'
  925. Xextern struct driver dev_box;
  926. Xextern struct driver dev_epic;
  927. Xextern struct driver dev_latex;
  928. Xextern struct driver dev_pic;
  929. Xextern struct driver dev_pictex;
  930. Xextern struct driver dev_ps;
  931. X
  932. Xstruct 
  933. X    {char *name; struct driver *dev;}
  934. X    drivers[]
  935. X    = {
  936. X        {"box",        &dev_box}, 
  937. X#ifdef EPIC
  938. X        {"epic",    &dev_epic},
  939. X        {"eepic",    &dev_epic},
  940. X        {"eepicemu",    &dev_epic},
  941. X#endif
  942. X#ifdef LATEX
  943. X        {"latex",    &dev_latex},
  944. X#endif
  945. X#ifdef PIC
  946. X        {"pic",        &dev_pic},
  947. X#endif
  948. X#ifdef PICTEX
  949. X        {"pictex",    &dev_pictex},
  950. X#endif
  951. X#ifdef PS
  952. X        {"ps",        &dev_ps},
  953. X#endif
  954. X        {"",        NULL}
  955. X    };
  956. END_OF_FILE
  957. if test 549 -ne `wc -c <'transfig/fig2dev/drivers.h'`; then
  958.     echo shar: \"'transfig/fig2dev/drivers.h'\" unpacked with wrong size!
  959. fi
  960. # end of 'transfig/fig2dev/drivers.h'
  961. fi
  962. if test -f 'transfig/fig2dev/fig2dev.h' -a "${1}" != "-c" ; then 
  963.   echo shar: Will not clobber existing file \"'transfig/fig2dev/fig2dev.h'\"
  964. else
  965. echo shar: Extracting \"'transfig/fig2dev/fig2dev.h'\" \(727 characters\)
  966. sed "s/^X//" >'transfig/fig2dev/fig2dev.h' <<'END_OF_FILE'
  967. X/* 
  968. X * Device driver interface structure
  969. X */
  970. Xstruct driver {
  971. X     void (*option)();    /* interpret driver-specific options */
  972. X      void (*start)();    /* output file header */
  973. X    void (*arc)();        /* object generators */
  974. X    void (*ellipse)();
  975. X    void (*line)();
  976. X    void (*spline)();
  977. X    void (*text)();
  978. X    void (*end)();        /* output file trailer */
  979. X      int text_include;    /* include text length in bounding box */
  980. X#define INCLUDE_TEXT 1
  981. X#define EXCLUDE_TEXT 0
  982. X};
  983. X
  984. Xextern char *strchr();
  985. Xextern void fprintf(), fputc();
  986. X
  987. Xextern char Err_badarg[];
  988. Xextern char Err_incomp[];
  989. Xextern char Err_mem[];
  990. X
  991. Xextern char    *prog, *from;
  992. Xextern int    font_size;
  993. Xextern double    mag;
  994. Xextern FILE    *tfp;
  995. X
  996. Xextern int llx, lly, urx, ury, coord_system;
  997. X
  998. Xextern void gendev_null();
  999. END_OF_FILE
  1000. if test 727 -ne `wc -c <'transfig/fig2dev/fig2dev.h'`; then
  1001.     echo shar: \"'transfig/fig2dev/fig2dev.h'\" unpacked with wrong size!
  1002. fi
  1003. # end of 'transfig/fig2dev/fig2dev.h'
  1004. fi
  1005. if test -f 'transfig/fig2dev/fig2ps2tex' -a "${1}" != "-c" ; then 
  1006.   echo shar: Will not clobber existing file \"'transfig/fig2dev/fig2ps2tex'\"
  1007. else
  1008. echo shar: Extracting \"'transfig/fig2dev/fig2ps2tex'\" \(456 characters\)
  1009. sed "s/^X//" >'transfig/fig2dev/fig2ps2tex' <<'END_OF_FILE'
  1010. X#! /bin/csh -f
  1011. X#
  1012. X# Fig2ps2tex - generate a TeX file for including a PostScript file
  1013. X#         involves calculating the bounding box from fig2ps output
  1014. X#
  1015. Xset bbox = `grep "^%%BoundingBox:" $1`
  1016. X
  1017. Xset xsp = `echo "3k $bbox[4] $bbox[2] - 72 / p" | dc`
  1018. Xset ysp = `echo "3k $bbox[5] $bbox[3] - 72 / p" | dc`
  1019. X
  1020. Xecho "\makebox[${xsp}in][l]{"
  1021. Xecho "  \vbox to ${ysp}in{"
  1022. Xecho "    \vfill"
  1023. Xecho "    \special{psfile=$1}"
  1024. Xecho "  }"
  1025. Xecho "  \vspace{-\baselineskip}"
  1026. Xecho "}"
  1027. END_OF_FILE
  1028. if test 456 -ne `wc -c <'transfig/fig2dev/fig2ps2tex'`; then
  1029.     echo shar: \"'transfig/fig2dev/fig2ps2tex'\" unpacked with wrong size!
  1030. fi
  1031. chmod +x 'transfig/fig2dev/fig2ps2tex'
  1032. # end of 'transfig/fig2dev/fig2ps2tex'
  1033. fi
  1034. if test -f 'transfig/fig2dev/free.c' -a "${1}" != "-c" ; then 
  1035.   echo shar: Will not clobber existing file \"'transfig/fig2dev/free.c'\"
  1036. else
  1037. echo shar: Extracting \"'transfig/fig2dev/free.c'\" \(2189 characters\)
  1038. sed "s/^X//" >'transfig/fig2dev/free.c' <<'END_OF_FILE'
  1039. X#include <stdio.h>
  1040. X#include <math.h>
  1041. X#include "object.h"
  1042. X
  1043. Xfree_arc(list)
  1044. XF_arc    **list;
  1045. X{
  1046. X    F_arc    *a, *arc;
  1047. X
  1048. X    for (a = *list; a != NULL;) {
  1049. X        arc = a;
  1050. X        a = a->next;
  1051. X        if (arc->for_arrow) free((char*)arc->for_arrow);
  1052. X        if (arc->back_arrow) free((char*)arc->back_arrow);
  1053. X        free((char*)arc);
  1054. X        } 
  1055. X    *list = NULL;
  1056. X    }
  1057. X
  1058. Xfree_compound(list)
  1059. XF_compound    **list;
  1060. X{
  1061. X    F_compound    *c, *compound;
  1062. X
  1063. X    for (c = *list; c != NULL;) {
  1064. X        compound = c;
  1065. X        c = c->next;
  1066. X        free_arc(&compound->arcs);
  1067. X        free_compound(&compound->compounds);
  1068. X        free_ellipse(&compound->ellipses);
  1069. X        free_line(&compound->lines);
  1070. X        free_spline(&compound->splines);
  1071. X        free_text(&compound->texts);
  1072. X        free((char*)compound);
  1073. X        } 
  1074. X    *list = NULL;
  1075. X    }
  1076. X
  1077. Xfree_ellipse(list)
  1078. XF_ellipse    **list;
  1079. X{
  1080. X    F_ellipse    *e, *ellipse;
  1081. X
  1082. X    for (e = *list; e != NULL;) {
  1083. X        ellipse = e;
  1084. X        e = e->next;
  1085. X        free((char*)ellipse);
  1086. X        } 
  1087. X    *list = NULL;
  1088. X    }
  1089. X
  1090. Xfree_line(list)
  1091. XF_line    **list;
  1092. X{
  1093. X    F_line    *l, *line;
  1094. X
  1095. X    for (l = *list; l != NULL;) {
  1096. X        line = l;
  1097. X        l = l->next;
  1098. X        free_linestorage(line);
  1099. X        } 
  1100. X    *list = NULL;
  1101. X    }
  1102. X
  1103. Xfree_text(list)
  1104. XF_text    **list;
  1105. X{
  1106. X    F_text    *t, *text;
  1107. X
  1108. X    for (t = *list; t != NULL;) {
  1109. X        text = t;
  1110. X        t = t->next;
  1111. X        cfree(text->cstring);
  1112. X        free((char*)text);
  1113. X        } 
  1114. X    *list = NULL;
  1115. X    }
  1116. X
  1117. Xfree_spline(list)
  1118. XF_spline    **list;
  1119. X{
  1120. X    F_spline    *s, *spline;
  1121. X
  1122. X    for (s = *list; s != NULL;) {
  1123. X        spline = s;
  1124. X        s = s->next;
  1125. X        free_splinestorage(spline);
  1126. X        }
  1127. X    *list = NULL;
  1128. X    }
  1129. X
  1130. Xfree_splinestorage(s)
  1131. XF_spline      *s;
  1132. X{
  1133. X        F_point        *p, *q;
  1134. X        F_control    *a, *b;
  1135. X
  1136. X        for (p = s->points; p != NULL; p = q) {
  1137. X            q = p->next;
  1138. X            free((char*)p);
  1139. X            }
  1140. X        for (a = s->controls; a != NULL; a = b) {
  1141. X            b = a->next;
  1142. X            free((char*)a);
  1143. X            }
  1144. X    if (s->for_arrow) free((char*)s->for_arrow);
  1145. X    if (s->back_arrow) free((char*)s->back_arrow);
  1146. X        free((char*)s);
  1147. X        }
  1148. X
  1149. Xfree_linestorage(l)
  1150. XF_line    *l;
  1151. X{
  1152. X    F_point    *p, *q;
  1153. X
  1154. X    for (p = l->points; p != NULL; p = q) {
  1155. X        q = p->next;
  1156. X        free((char*)p);
  1157. X        }
  1158. X    if (l->for_arrow) free((char*)l->for_arrow);
  1159. X    if (l->back_arrow) free((char*)l->back_arrow);
  1160. X    free((char*)l);
  1161. X    }
  1162. END_OF_FILE
  1163. if test 2189 -ne `wc -c <'transfig/fig2dev/free.c'`; then
  1164.     echo shar: \"'transfig/fig2dev/free.c'\" unpacked with wrong size!
  1165. fi
  1166. # end of 'transfig/fig2dev/free.c'
  1167. fi
  1168. if test -f 'transfig/fig2dev/getopt.c' -a "${1}" != "-c" ; then 
  1169.   echo shar: Will not clobber existing file \"'transfig/fig2dev/getopt.c'\"
  1170. else
  1171. echo shar: Extracting \"'transfig/fig2dev/getopt.c'\" \(2996 characters\)
  1172. sed "s/^X//" >'transfig/fig2dev/getopt.c' <<'END_OF_FILE'
  1173. X/*
  1174. X    I got this off net.sources from Henry Spencer.
  1175. X    It is a public domain getopt(3) like in System V.
  1176. X    I have made the following modifications:
  1177. X
  1178. X    index(s,c) was added because too many people could
  1179. X    not compile getopt without it.
  1180. X
  1181. X    A test main program was added, ifdeffed by GETOPT.
  1182. X    This main program is a public domain implementation
  1183. X    of the getopt(1) program like in System V.  The getopt
  1184. X    program can be used to standardize shell option handling.
  1185. X        e.g.  cc -DGETOPT getopt.c -o getopt
  1186. X*/
  1187. X#include <stdio.h>
  1188. X
  1189. X#ifndef lint
  1190. Xstatic    char    sccsfid[] = "@(#) getopt.c 5.0 (UTZoo) 1985";
  1191. X#endif
  1192. X
  1193. X#define    ARGCH    (int)':'
  1194. X#define BADCH     (int)'?'
  1195. X#define EMSG     ""
  1196. X#define    ENDARGS  "--"
  1197. X
  1198. X/* this is included because index is not on some UNIX systems */
  1199. Xstatic
  1200. Xchar *
  1201. Xindex (s, c)
  1202. Xregister    char    *s;
  1203. Xregister    int     c;
  1204. X    {
  1205. X    while (*s)
  1206. X        if (c == *s) return (s);
  1207. X        else s++;
  1208. X    return (NULL);
  1209. X    }
  1210. X
  1211. X/*
  1212. X * get option letter from argument vector
  1213. X */
  1214. Xint    opterr = 1,        /* useless, never set or used */
  1215. X    optind = 1,        /* index into parent argv vector */
  1216. X    optopt;            /* character checked for validity */
  1217. Xchar    *optarg;        /* argument associated with option */
  1218. X
  1219. X#define tell(s)    fputs(*nargv,stderr);fputs(s,stderr); \
  1220. X        fputc(optopt,stderr);fputc('\n',stderr);return(BADCH);
  1221. X
  1222. X
  1223. Xgetopt(nargc,nargv,ostr)
  1224. Xint    nargc;
  1225. Xchar    **nargv,
  1226. X    *ostr;
  1227. X{
  1228. X    static char    *place = EMSG;    /* option letter processing */
  1229. X    register char    *oli;        /* option letter list index */
  1230. X    char    *index();
  1231. X
  1232. X    if(!*place) {            /* update scanning pointer */
  1233. X        if(optind >= nargc || *(place = nargv[optind]) != '-' || !*++place) return(EOF);
  1234. X        if (*place == '-') {    /* found "--" */
  1235. X            ++optind;
  1236. X            return(EOF);
  1237. X        }
  1238. X    }                /* option letter okay? */
  1239. X    if ((optopt = (int)*place++) == ARGCH || !(oli = index(ostr,optopt))) {
  1240. X        if(!*place) ++optind;
  1241. X        tell(": illegal option -- ");
  1242. X    }
  1243. X    if (*++oli != ARGCH) {        /* don't need argument */
  1244. X        optarg = NULL;
  1245. X        if (!*place) ++optind;
  1246. X    }
  1247. X    else {                /* need an argument */
  1248. X        if (*place) optarg = place;    /* no white space */
  1249. X        else if (nargc <= ++optind) {    /* no arg */
  1250. X            place = EMSG;
  1251. X            tell(": option requires an argument -- ");
  1252. X        }
  1253. X         else optarg = nargv[optind];    /* white space */
  1254. X        place = EMSG;
  1255. X        ++optind;
  1256. X    }
  1257. X    return(optopt);            /* dump back option letter */
  1258. X}
  1259. X
  1260. X
  1261. X#ifdef GETOPT
  1262. X
  1263. X#ifndef lint
  1264. Xstatic    char    sccspid[] = "@(#) getopt.c 5.1 (WangInst) 6/15/85";
  1265. X#endif
  1266. X
  1267. Xmain (argc, argv) char **argv;
  1268. X    {
  1269. X    char    *optstring = argv[1];
  1270. X    char    *argv0 = argv[0];
  1271. X    extern    int     optind;
  1272. X    extern    char    *optarg;
  1273. X    int     opterr = 0;
  1274. X    int     C;
  1275. X    char    *opi;
  1276. X    if (argc == 1)
  1277. X        {
  1278. X        fprintf (stderr, "Usage: %s optstring args\n", argv0);
  1279. X        exit (1);
  1280. X        }
  1281. X    argv++;
  1282. X    argc--;
  1283. X    argv[0] = argv0;
  1284. X    while ((C = getopt (argc, argv, optstring)) != EOF)
  1285. X        {
  1286. X        if (C == BADCH) opterr++;
  1287. X        printf ("-%c ", C);
  1288. X        opi = index (optstring, C);
  1289. X        if (opi && opi[1] == ARGCH)
  1290. X            if (optarg)
  1291. X                printf ("\"%s\" ", optarg);
  1292. X            else opterr++;
  1293. X        }
  1294. X    printf ("%s", ENDARGS);
  1295. X    while (optind < argc)
  1296. X        printf (" \"%s\"", argv[optind++]);
  1297. X    putchar ('\n');
  1298. X    exit (opterr);
  1299. X    }
  1300. X
  1301. X#endif
  1302. END_OF_FILE
  1303. if test 2996 -ne `wc -c <'transfig/fig2dev/getopt.c'`; then
  1304.     echo shar: \"'transfig/fig2dev/getopt.c'\" unpacked with wrong size!
  1305. fi
  1306. # end of 'transfig/fig2dev/getopt.c'
  1307. fi
  1308. if test -f 'transfig/fig2dev/newfont.h' -a "${1}" != "-c" ; then 
  1309.   echo shar: Will not clobber existing file \"'transfig/fig2dev/newfont.h'\"
  1310. else
  1311. echo shar: Extracting \"'transfig/fig2dev/newfont.h'\" \(2809 characters\)
  1312. sed "s/^X//" >'transfig/fig2dev/newfont.h' <<'END_OF_FILE'
  1313. XReceived: from cu-arpa.cs.cornell.edu by loki.cs.cornell.edu (4.0/I-1.91f)
  1314. X    id AA13388; Fri, 21 Jul 89 12:48:10 EDT
  1315. XReceived: from thumper.bellcore.com by cu-arpa.cs.cornell.edu (5.61+2/1.91d)
  1316. X    id AA02218; Fri, 21 Jul 89 12:48:00 -0400
  1317. XReceived: by thumper.bellcore.com (5.54/4.7)
  1318. X    id AA07930; Fri, 21 Jul 89 12:47:12 EDT
  1319. XReceived: by dino.bellcore.com (4.12/4.7)
  1320. X    id AA10363; Fri, 21 Jul 89 12:49:10 edt
  1321. XDate: Fri, 21 Jul 89 12:49:10 edt
  1322. XFrom: dana@thumper.bellcore.com (Dana A. Chee)
  1323. XMessage-Id: <8907211649.AA10363@dino.bellcore.com>
  1324. XTo: beck@cs.cornell.edu (Micah Beck)
  1325. XIn-Reply-To: <8907191419.AA10822@utgard.cs.cornell.edu>
  1326. XSubject: Hello, Dana?
  1327. XStatus: R
  1328. X
  1329. XBelieve it or not, I haven't dropped off the face of the earth.  Yes
  1330. XI'm still working on it when time permits, and below is my font
  1331. Xscheme (with all ifdefs removed).  As you see, there are three
  1332. Xcomponents to a font, the face (font), style, and size.  Hope this
  1333. Xhelps you out (and hopefully an alpha of this will be out soon).
  1334. X
  1335. XDana
  1336. X
  1337. X
  1338. Xtypedef         struct f_text {
  1339. X                        int                     type;
  1340. X#define                                 T_LEFT_JUSTIFIED        0
  1341. X#define                                 T_CENTER_JUSTIFIED      1
  1342. X#define                                 T_RIGHT_JUSTIFIED       2
  1343. X                        int                     font;
  1344. X#define                                 TIMES                   0
  1345. X#define                                 HELVETICA               4
  1346. X#define                                 COURIER                 8
  1347. X#define                                 NCENBOOK                12
  1348. X                        int                     size;   /* point size */
  1349. X                        int                     color;
  1350. X                        int                     depth;
  1351. X                        double                  angle;  /* in radian */
  1352. X                        int                     style;
  1353. X#define                                 ROMAN           0
  1354. X#define                                 ITALIC          1
  1355. X#define                                 OBLIQUE         1
  1356. X#define                                 BOLD            2
  1357. X#define                                 BOLD_ITALIC     3
  1358. X#define                                 BOLD_OBLIQUE    3
  1359. X                        int                     height; /* pixels */
  1360. X                        int                     length; /* pixels */
  1361. X                        int                     base_x;
  1362. X                        int                     base_y;
  1363. X                        struct f_pen            *pen;
  1364. X                        char                    *cstring;
  1365. X#ifdef  X11
  1366. X                        GC                      gc;
  1367. X#endif  /* X11 */
  1368. X                        struct f_text           *next;
  1369. X                        }
  1370. X                F_text;
  1371. END_OF_FILE
  1372. if test 2809 -ne `wc -c <'transfig/fig2dev/newfont.h'`; then
  1373.     echo shar: \"'transfig/fig2dev/newfont.h'\" unpacked with wrong size!
  1374. fi
  1375. # end of 'transfig/fig2dev/newfont.h'
  1376. fi
  1377. if test -f 'transfig/fig2dev/pi.h' -a "${1}" != "-c" ; then 
  1378.   echo shar: Will not clobber existing file \"'transfig/fig2dev/pi.h'\"
  1379. else
  1380. echo shar: Extracting \"'transfig/fig2dev/pi.h'\" \(94 characters\)
  1381. sed "s/^X//" >'transfig/fig2dev/pi.h' <<'END_OF_FILE'
  1382. X#ifndef M_PI
  1383. X#define M_PI    3.14159265358979323846
  1384. X#define M_PI_2    1.57079632679489661923
  1385. X#endif
  1386. END_OF_FILE
  1387. if test 94 -ne `wc -c <'transfig/fig2dev/pi.h'`; then
  1388.     echo shar: \"'transfig/fig2dev/pi.h'\" unpacked with wrong size!
  1389. fi
  1390. # end of 'transfig/fig2dev/pi.h'
  1391. fi
  1392. if test -f 'transfig/fig2dev/pic2tpic' -a "${1}" != "-c" ; then 
  1393.   echo shar: Will not clobber existing file \"'transfig/fig2dev/pic2tpic'\"
  1394. else
  1395. echo shar: Extracting \"'transfig/fig2dev/pic2tpic'\" \(1034 characters\)
  1396. sed "s/^X//" >'transfig/fig2dev/pic2tpic' <<'END_OF_FILE'
  1397. X#!/bin/sh
  1398. Xsed -e '
  1399. X    s/\(\\f[^(]\)\(\\s[0-9]*\)/\2\1/g
  1400. X    s/\(\\f(..\)\(\\s[0-9]*\)/\2\1/g
  1401. X    s/"\([^"]*\)\\fP\([^"]*\)"/"\1\2"/g
  1402. X    s/"\([^"]*\)\\fR\([^"]*\)"/"\1\\rm \2"/g
  1403. X    s/"\([^"]*\)\\fI\([^"]*\)"/"\1\\it \2"/g
  1404. X    s/"\([^"]*\)\\fB\([^"]*\)"/"\1\\bf \2"/g
  1405. X    s/"\([^"]*\)\\fH\([^"]*\)"/"\1\\ss \2"/g
  1406. X    s/"\([^"]*\)\\fC\([^"]*\)"/"\1\\tt \2"/g
  1407. X    s/"\([^"]*\)\\f(CO\([^"]*\)"/"\1\\tt \2"/g
  1408. X    s/"\([^"]*\)\\f(CW\([^"]*\)"/"\1\\tt \2"/g
  1409. X    s/"\([^"]*\)\\s0\([^"]*\)"/"\1\2"/g
  1410. X    s/"\([^"]*\)\\s[56]\([^0-9][^"]*\)"/"\1\\tiny \2"/g
  1411. X    s/"\([^"]*\)\\s7\([^0-9][^"]*\)"/"\1\\scriptsize \2"/g
  1412. X    s/"\([^"]*\)\\s8\([^0-9][^"]*\)"/"\1\\footnotesize \2"/g
  1413. X    s/"\([^"]*\)\\s9\([^0-9][^"]*\)"/"\1\\small \2"/g
  1414. X    s/"\([^"]*\)\\s1[01]\([^"]*\)"/"\1\\normalsize \2"/g
  1415. X    s/"\([^"]*\)\\s1[23]\([^"]*\)"/"\1\\large \2"/g
  1416. X    s/"\([^"]*\)\\s1[4-6]\([^"]*\)"/"\1\\Large \2"/g
  1417. X    s/"\([^"]*\)\\s1[7-9]\([^"]*\)"/"\1\\LARGE \2"/g
  1418. X    s/"\([^"]*\)\\s2[0-3]\([^"]*\)"/"\1\\huge \2"/g
  1419. X    s/"\([^"]*\)\\s2[4-9]\([^"]*\)"/"\1\\Huge \2"/g
  1420. X    s/"\([^"]*\)\\s3[0-9]\([^"]*\)"/"\1\\Huge \2"/g
  1421. X    ' $*
  1422. END_OF_FILE
  1423. if test 1034 -ne `wc -c <'transfig/fig2dev/pic2tpic'`; then
  1424.     echo shar: \"'transfig/fig2dev/pic2tpic'\" unpacked with wrong size!
  1425. fi
  1426. # end of 'transfig/fig2dev/pic2tpic'
  1427. fi
  1428. if test -f 'transfig/patchlevel.h' -a "${1}" != "-c" ; then 
  1429.   echo shar: Will not clobber existing file \"'transfig/patchlevel.h'\"
  1430. else
  1431. echo shar: Extracting \"'transfig/patchlevel.h'\" \(21 characters\)
  1432. sed "s/^X//" >'transfig/patchlevel.h' <<'END_OF_FILE'
  1433. X#define PATCHLEVEL 1
  1434. END_OF_FILE
  1435. if test 21 -ne `wc -c <'transfig/patchlevel.h'`; then
  1436.     echo shar: \"'transfig/patchlevel.h'\" unpacked with wrong size!
  1437. fi
  1438. # end of 'transfig/patchlevel.h'
  1439. fi
  1440. if test ! -d 'transfig/transfig' ; then
  1441.     echo shar: Creating directory \"'transfig/transfig'\"
  1442.     mkdir 'transfig/transfig'
  1443. fi
  1444. if test -f 'transfig/transfig/Makefile' -a "${1}" != "-c" ; then 
  1445.   echo shar: Will not clobber existing file \"'transfig/transfig/Makefile'\"
  1446. else
  1447. echo shar: Extracting \"'transfig/transfig/Makefile'\" \(358 characters\)
  1448. sed "s/^X//" >'transfig/transfig/Makefile' <<'END_OF_FILE'
  1449. X#    TransFig : Fig code translation Makefile creation program
  1450. X#
  1451. X#    Micah Beck
  1452. X#
  1453. X
  1454. XOBJ = transfig.o txfile.o mkfile.o sys.o ../fig2dev/getopt.c
  1455. X
  1456. X#CFLAGS =  -g
  1457. XCFLAGS = -O
  1458. X
  1459. XTARGET = transfig$(TARGET_ARCH)
  1460. X
  1461. X$(TARGET): $(OBJ)
  1462. X    $(CC) $(TARGET_ARCH) $(OBJ) -lm -o $(TARGET)
  1463. X
  1464. X$(OBJ): transfig.h
  1465. X
  1466. X#########
  1467. Xtidy: 
  1468. X    rm -f *.o
  1469. X
  1470. Xclean: 
  1471. X    rm -f *.o transfig transfig-* core
  1472. END_OF_FILE
  1473. if test 358 -ne `wc -c <'transfig/transfig/Makefile'`; then
  1474.     echo shar: \"'transfig/transfig/Makefile'\" unpacked with wrong size!
  1475. fi
  1476. # end of 'transfig/transfig/Makefile'
  1477. fi
  1478. if test -f 'transfig/transfig/mkfile.c' -a "${1}" != "-c" ; then 
  1479.   echo shar: Will not clobber existing file \"'transfig/transfig/mkfile.c'\"
  1480. else
  1481. echo shar: Extracting \"'transfig/transfig/mkfile.c'\" \(3510 characters\)
  1482. sed "s/^X//" >'transfig/transfig/mkfile.c' <<'END_OF_FILE'
  1483. X#include <stdio.h>
  1484. X#include "transfig.h"
  1485. X
  1486. X/*
  1487. X * create an appropriate makefile
  1488. X */
  1489. Xmakefile(mk, arg_list)
  1490. XFILE *mk;
  1491. Xargument *arg_list;
  1492. X{
  1493. X  argument *a;
  1494. X  char *i;
  1495. X  enum language to;
  1496. X  int needps, needpic, needfig;
  1497. X  
  1498. X
  1499. X  fprintf(mk, "#\n# TransFig makefile\n#\n");
  1500. X
  1501. X  fprintf(mk, "\nall: ");
  1502. X  for (a = arglist; a; a = a->next)
  1503. X        fprintf(mk, "%s.tex ", a->name);
  1504. X  fprintf(mk, "\n");
  1505. X
  1506. X  for (a = arglist; a; a = a->next)
  1507. X  {
  1508. X    i = a->name;
  1509. X    to = a->tolang;
  1510. X
  1511. X    needps = needpic = needfig = 0;
  1512. X
  1513. X    fprintf(mk, "\n# translation into %s\n\n", lname[(int)to]);
  1514. X
  1515. X    switch (to)
  1516. X    {
  1517. X    case pictex:
  1518. X        putfig(mk, pictex, a->f, a->s, a->m, i, "tex");
  1519. X        needfig = 1;
  1520. X        break;
  1521. X
  1522. X    case postscript:
  1523. X                puttarget(mk, i, "tex", "ps");
  1524. X                fprintf(mk, "\tfig2ps2tex %s.ps >%s.tex\n", i, i);
  1525. X        needps = 1;
  1526. X                break;
  1527. X
  1528. X        case psfig:
  1529. X                puttarget(mk, i, "tex", "ps");
  1530. X                fprintf(mk,"\techo \'\\strut\\psfig\{figure=%s.ps\}\' >%s.tex\n",
  1531. X                          i, i);
  1532. X        needps = 1;
  1533. X                break;
  1534. X
  1535. X    case latex:
  1536. X        putfig(mk, latex, a->f, a->s, a->m, i, "tex");
  1537. X        needfig = 1;
  1538. X        break;
  1539. X
  1540. X    case eepicemu:
  1541. X    case epic:
  1542. X    case eepic:
  1543. X        putfig(mk, to, a->f, a->s, a->m, i, "tex");
  1544. X        needfig = 1;
  1545. X        break;
  1546. X
  1547. X    case tpic:
  1548. X        puttarget(mk, i, "tex", "pic");
  1549. X        /* fprintf(mk, "\ttpic %s.pic\n", i); */
  1550. X        fprintf(mk, "\tpic2tpic %s.pic | tpic > %s.tex\n", i, i);
  1551. X        fprintf(mk, "\techo \'\\strut\\box\\graph\' >>%s.tex\n", i);
  1552. X        needpic = 1;
  1553. X        break;
  1554. X
  1555. X    case box:
  1556. X        putfig(mk, box, NULL, NULL, a->m, i, "tex");
  1557. X        needfig = 1;
  1558. X        break;
  1559. X
  1560. X    }
  1561. X
  1562. X    putclean(mk, i, "tex" );
  1563. X
  1564. X    /* conversion to postscript */
  1565. X    if (needps && a->type != ps) {
  1566. X        if ( a->tops ) {
  1567. X            puttarget(mk, i, "ps", iname[(int)a->type]);
  1568. X            fprintf(mk, "\t%s %s.%s > %s.ps\n", a->tops, i, iname[(int)a->type], i);
  1569. X        }
  1570. X        else {
  1571. X                    putfig(mk, postscript, a->f, a->s, a->m, i, "ps");
  1572. X                    a->interm = mksuff(i, ".ps");
  1573. X            needfig = 1;
  1574. X        }
  1575. X        putclean(mk, i, "ps" );
  1576. X    }
  1577. X
  1578. X    /* conversion to pic */
  1579. X    if (needpic && a->type != pic) {
  1580. X        if ( a->topic ) {
  1581. X            puttarget(mk, i, "pic", iname[(int)a->type]);
  1582. X            fprintf(mk, "\t%s %s.%s > %s.pic\n", a->topic, i, iname[(int)a->type],i);
  1583. X        }
  1584. X        else {
  1585. X            putfig(mk, tpic, a->f, a->s, a->m, i, "pic");
  1586. X
  1587. X            needfig = 1;
  1588. X        }
  1589. X        putclean(mk, i, "pic" );
  1590. X    }
  1591. X
  1592. X    /* conversion to fig */
  1593. X    if (needfig && a->type != fig) {
  1594. X        if ( a->tofig ) {
  1595. X            puttarget(mk, i, "fig", iname[(int)a->type]);
  1596. X            fprintf(mk, "\t%s %s.%s > %s.fig\n", a->tofig, i, iname[(int)a->type],i);
  1597. X            a->interm = mksuff(i, ".fig");
  1598. X        }
  1599. X        else {
  1600. X            fprintf(stderr, "transfig: warning: don't now how to make %s\n", mksuff(i, ".fig") );
  1601. X        }
  1602. X        putclean(mk, i, "fig" );
  1603. X    }
  1604. X  }
  1605. X}
  1606. X
  1607. Xputtarget(mk, i, suf1, suf2)
  1608. XFILE *mk;
  1609. Xchar *i, *suf1, *suf2;
  1610. X{
  1611. X    fprintf(mk, "%s.%s: %s.%s %s\n", i, suf1, i, suf2, mkfile);
  1612. X}
  1613. X
  1614. Xputfig(mk, to, f, s, m, i, suf)
  1615. XFILE *mk;
  1616. Xenum language to;
  1617. Xchar *f, *s, *m, *i, *suf;
  1618. X{
  1619. X  fprintf(mk, "%s%s%s: %s.fig %s\n",
  1620. X           i, (suf ? "." : ""), (suf ? suf : ""), i, mkfile);
  1621. X
  1622. X  if ( to == tpic )
  1623. X      fprintf(mk, "\tfig2dev -L pic ");
  1624. X  else
  1625. X      fprintf(mk, "\tfig2dev -L %s ", lname[(int)to]);
  1626. X
  1627. X  if (f && *f) fprintf(mk, "-f %s ", f);
  1628. X  if (s && *s) fprintf(mk, "-s %s ", s);
  1629. X  if (m && *m) fprintf(mk, "-m %s ", m);
  1630. X
  1631. X  fprintf(mk, "%s.fig > %s%s%s\n", i, i, (suf ? "." : ""), (suf ? suf : ""));
  1632. X}
  1633. X
  1634. Xputclean(mk, i, suf)
  1635. XFILE *mk;
  1636. Xchar *i, *suf;
  1637. X{
  1638. X   fprintf(mk, "clean::\n");
  1639. X   fprintf(mk, "\trm -f %s.%s\n", i, suf);
  1640. X   fprintf(mk, "\n");
  1641. X}
  1642. END_OF_FILE
  1643. if test 3510 -ne `wc -c <'transfig/transfig/mkfile.c'`; then
  1644.     echo shar: \"'transfig/transfig/mkfile.c'\" unpacked with wrong size!
  1645. fi
  1646. # end of 'transfig/transfig/mkfile.c'
  1647. fi
  1648. if test -f 'transfig/transfig/sys.c' -a "${1}" != "-c" ; then 
  1649.   echo shar: Will not clobber existing file \"'transfig/transfig/sys.c'\"
  1650. else
  1651. echo shar: Extracting \"'transfig/transfig/sys.c'\" \(857 characters\)
  1652. sed "s/^X//" >'transfig/transfig/sys.c' <<'END_OF_FILE'
  1653. X#include <stdio.h>
  1654. X#include "transfig.h"
  1655. X
  1656. X#define MAXSYS 1000
  1657. Xstatic char sysbuf[MAXSYS];
  1658. X
  1659. Xchar *sysls()
  1660. X{
  1661. X  FILE *ls;
  1662. X  int i;
  1663. X  char c;
  1664. X
  1665. X  ls = popen("/bin/ls *.fig", "r");
  1666. X  i = 0;
  1667. X  c = fgetc(ls);
  1668. X  while (c != EOF & i < MAXSYS-1)
  1669. X  {
  1670. X    sysbuf[i] = c;
  1671. X    i += 1;
  1672. X    c = fgetc(ls);
  1673. X  }
  1674. X  sysbuf[i] = NULL;
  1675. X  return sysbuf;
  1676. X}
  1677. X
  1678. Xsysmv(f)
  1679. Xchar *f;
  1680. X{
  1681. X  sprintf(sysbuf, "%s~", f);
  1682. X  unlink(sysbuf);
  1683. X  if (!link(f, sysbuf)) unlink(f);
  1684. X}
  1685. X
  1686. Xchar *strip(str, suf)
  1687. Xchar *str, *suf;
  1688. X{
  1689. X  char *p1, *p2;
  1690. X
  1691. X  for (p1 = &str[strlen(str)-1], p2 = &suf[strlen(suf)-1];
  1692. X    (p1 >= str && p2 >= suf) && (*p1 == *p2);
  1693. X    --p1, --p2);
  1694. X
  1695. X  if (p2 < suf)
  1696. X  {
  1697. X    *(p1+1) = NULL;
  1698. X    return str;
  1699. X  } else
  1700. X    return NULL;
  1701. X}
  1702. X
  1703. Xchar *mksuff(name, suff)
  1704. Xchar *name, *suff;
  1705. X{
  1706. X  char *temp;
  1707. X
  1708. X  temp = (char *)malloc(strlen(name)+strlen(suff)+1);
  1709. X  strcpy(temp, name);
  1710. X  strcat(temp, suff);
  1711. X  return temp;
  1712. X}
  1713. END_OF_FILE
  1714. if test 857 -ne `wc -c <'transfig/transfig/sys.c'`; then
  1715.     echo shar: \"'transfig/transfig/sys.c'\" unpacked with wrong size!
  1716. fi
  1717. # end of 'transfig/transfig/sys.c'
  1718. fi
  1719. if test -f 'transfig/transfig/transfig.c' -a "${1}" != "-c" ; then 
  1720.   echo shar: Will not clobber existing file \"'transfig/transfig/transfig.c'\"
  1721. else
  1722. echo shar: Extracting \"'transfig/transfig/transfig.c'\" \(3354 characters\)
  1723. sed "s/^X//" >'transfig/transfig/transfig.c' <<'END_OF_FILE'
  1724. X/*
  1725. X * transfig:     figure translation setup program
  1726. X *        creates TeX macro file and makefile
  1727. X *
  1728. X * usage: transfig <option> ... [[<flag> ... ] [<figure>] ... ] ...
  1729. X *
  1730. X * where:    <option> = -L <language> | -M <makefile> | -T <texfile>
  1731. X *        <flag>     = -f <font> | -s <size> | -m <scale>
  1732. X */
  1733. X
  1734. X#include <stdio.h>
  1735. X#include <string.h>
  1736. X#include "transfig.h"
  1737. X
  1738. Xargument *parse_arg(), *arglist = NULL, *lastarg = NULL;
  1739. Xchar *strip();
  1740. X
  1741. Xchar *mkfile = "Makefile";
  1742. Xchar *txfile = "transfig.tex";
  1743. X
  1744. Xchar *lname[] = {
  1745. X    "box",
  1746. X    "pictex",
  1747. X    "latex",
  1748. X    "epic",
  1749. X    "eepic",
  1750. X    "eepicemu",
  1751. X    "ps",
  1752. X    "psfig",
  1753. X    "tpic"};
  1754. X
  1755. Xchar *iname[] = {
  1756. X    "fig",
  1757. X      "pic",
  1758. X    "x",
  1759. X    "ps"};
  1760. X 
  1761. Xmain(argc, argv)
  1762. Xint argc;
  1763. Xchar *argv[];
  1764. X{
  1765. X  FILE *mk, *tx;
  1766. X  enum language tolang = epic;
  1767. X  argument *a;
  1768. X  char c, *cp, *arg_f = NULL, *arg_s = NULL, *arg_m = NULL, *argbuf;
  1769. X
  1770. X  for ( optind = 1; optind < argc; optind++ ) {
  1771. X    cp = argv[optind];
  1772. X    if (*cp == '-')
  1773. X    {
  1774. X      if (!cp[1])
  1775. X    {
  1776. X        fprintf(stderr, "transfig: bad option format '-'\n");
  1777. X        exit(1);
  1778. X    }
  1779. X    if (cp[2])
  1780. X    {
  1781. X        optarg = &cp[2];
  1782. X    } else
  1783. X    {
  1784. X        optind += 1;
  1785. X        if (optind == argc)
  1786. X        {
  1787. X            fprintf(stderr,
  1788. X                "transfig: no value for '%c' arg\n", cp[1]);
  1789. X            exit(1);
  1790. X        }
  1791. X        optarg = argv[optind];
  1792. X    }
  1793. X     switch (cp[1]) {
  1794. X 
  1795. X      case 'L':
  1796. X        tolang = str2lang(optarg);
  1797. X        break;
  1798. X      case 'M':
  1799. X        mkfile = optarg;
  1800. X        break;
  1801. X      case 'T':
  1802. X        txfile = optarg;
  1803. X        break;
  1804. X    case 'f':
  1805. X        arg_f = optarg;
  1806. X        break;
  1807. X    case 's':
  1808. X        arg_s = optarg;    
  1809. X        break;
  1810. X    case 'm':
  1811. X        arg_m = optarg;    
  1812. X        break;
  1813. X
  1814. X      default:
  1815. X        fprintf(stderr, "transfig: illegal option -- '%c'\n", *cp);
  1816. X        exit(1);
  1817. X      }
  1818. X    } else
  1819. X    {
  1820. X    a = parse_arg(tolang, arg_f, arg_s, arg_m, argv[optind]);
  1821. X
  1822. X    if ( !lastarg )
  1823. X        arglist = a;
  1824. X    else
  1825. X        lastarg->next = a; 
  1826. X    lastarg = a;
  1827. X    }
  1828. X  }
  1829. X
  1830. X  /* no files specified -> all files */
  1831. X  if (!arglist)
  1832. X  {
  1833. X    argbuf = sysls();
  1834. X    while (cp = strchr(argbuf, '\n'))
  1835. X    {
  1836. X        *cp = '\0';
  1837. X        a = parse_arg(tolang, arg_f, arg_s, arg_m, argbuf);
  1838. X        if ( !lastarg )
  1839. X            arglist = a;
  1840. X        else
  1841. X            lastarg->next = a; 
  1842. X        lastarg = a;
  1843. X        argbuf = cp+1;
  1844. X    }
  1845. X  }
  1846. X
  1847. X  sysmv(mkfile);
  1848. X  tx = fopen(txfile, "w");
  1849. X  texfile(tx, arglist);
  1850. X
  1851. X  mk = fopen(mkfile, "w");
  1852. X  makefile(mk, arglist);
  1853. X}
  1854. X
  1855. Xenum language str2lang(s)
  1856. Xchar *s;
  1857. X{
  1858. X  int i;
  1859. X
  1860. X  /* aliases */
  1861. X  if (!strcmp(s, "pic")) return tpic;
  1862. X  if (!strcmp(s, "postscript")) return postscript;
  1863. X  if (!strcmp(s, "null")) return box;
  1864. X
  1865. X  /* real names*/
  1866. X  for (i = 0; i <= (int)MAXLANG; i++)
  1867. X    if (!strcmp(lname[i], s)) return (enum language)i;
  1868. X
  1869. X  /* other strings */
  1870. X  fprintf(stderr, "Unknown output language \"%s\"\n", s);
  1871. X  exit(1);
  1872. X}
  1873. X
  1874. Xargument *parse_arg(tolang, arg_f, arg_s, arg_m, arg)
  1875. Xenum language tolang;
  1876. Xchar *arg_f, *arg_s, *arg_m, *arg;
  1877. X{
  1878. X  argument *a;
  1879. X
  1880. X  a = (argument *)malloc(sizeof(argument));
  1881. X  a->f = arg_f;
  1882. X  a->s = arg_s;
  1883. X  a->m = arg_m;
  1884. X  a->next = NULL;
  1885. X  a->tofig = NULL;
  1886. X  a->topic = NULL;
  1887. X  a->tops = NULL;
  1888. X  a->tolang = tolang;
  1889. X  
  1890. X  /* PIC */
  1891. X  if (strip(arg, ".pic"))
  1892. X  {
  1893. X      a->name = mksuff(arg, "");
  1894. X      a->type = pic;
  1895. X    a->tofig = PIC2FIG;
  1896. X    return a;
  1897. X  }
  1898. X
  1899. X  /* Xpic format */
  1900. X  if (strip(arg, ".x"))
  1901. X  {
  1902. X      a->name = mksuff(arg, "");
  1903. X      a->type = xpic;
  1904. X    a->tofig = X2FIG;
  1905. X    a->topic = X2PIC;
  1906. X    a->tops = X2PS;
  1907. X     return a;
  1908. X  }
  1909. X
  1910. X  /* PS format */
  1911. X  if (strip(arg, ".ps"))
  1912. X  {
  1913. X      a->name = mksuff(arg, "");
  1914. X      a->type = ps;
  1915. X     return a;
  1916. X  }
  1917. X
  1918. X  /* Fig format */
  1919. X  strip(arg, ".fig");
  1920. X  a->name = mksuff(arg, "");
  1921. X  a->type = fig;
  1922. X  return a;
  1923. X}
  1924. END_OF_FILE
  1925. if test 3354 -ne `wc -c <'transfig/transfig/transfig.c'`; then
  1926.     echo shar: \"'transfig/transfig/transfig.c'\" unpacked with wrong size!
  1927. fi
  1928. # end of 'transfig/transfig/transfig.c'
  1929. fi
  1930. if test -f 'transfig/transfig/transfig.h' -a "${1}" != "-c" ; then 
  1931.   echo shar: Will not clobber existing file \"'transfig/transfig/transfig.h'\"
  1932. else
  1933. echo shar: Extracting \"'transfig/transfig/transfig.h'\" \(767 characters\)
  1934. sed "s/^X//" >'transfig/transfig/transfig.h' <<'END_OF_FILE'
  1935. X/*
  1936. X * converters program names
  1937. X */
  1938. X#define FIG2DEV    "fig2dev"
  1939. X#define PIC2FIG "pic2fig"
  1940. X#define X2FIG "x2fig"
  1941. X#define X2PIC "x2pic"
  1942. X#define X2PS "x2ps -x"
  1943. X
  1944. X/*
  1945. X * filename defaults
  1946. X */
  1947. X#define MK "Makefile"
  1948. X#define TX "transfig.tex"
  1949. X
  1950. Xenum language  {box, pictex, 
  1951. X    latex, epic, eepic, eepicemu,
  1952. X    postscript, psfig, tpic};
  1953. X#define MAXLANG tpic
  1954. X
  1955. Xenum input {fig, pic, xpic, ps};
  1956. X#define MAXINPUT xps
  1957. X
  1958. Xtypedef struct argument{
  1959. X    char *name, *interm, *f, *s, *m, *tofig, *topic, *tops;
  1960. X    enum language tolang;
  1961. X    enum input type;
  1962. X    struct argument *next;
  1963. X} argument ;
  1964. X
  1965. Xextern enum language str2lang();
  1966. Xextern char *lname[];
  1967. Xextern char *iname[];
  1968. X
  1969. Xextern char *sysls(), *mksuff();
  1970. Xextern argument *arglist;
  1971. Xextern char *txfile, *mkfile;
  1972. X
  1973. Xextern char *optarg;
  1974. Xextern int optind;
  1975. X
  1976. END_OF_FILE
  1977. if test 767 -ne `wc -c <'transfig/transfig/transfig.h'`; then
  1978.     echo shar: \"'transfig/transfig/transfig.h'\" unpacked with wrong size!
  1979. fi
  1980. # end of 'transfig/transfig/transfig.h'
  1981. fi
  1982. if test -f 'transfig/transfig/txfile.c' -a "${1}" != "-c" ; then 
  1983.   echo shar: Will not clobber existing file \"'transfig/transfig/txfile.c'\"
  1984. else
  1985. echo shar: Extracting \"'transfig/transfig/txfile.c'\" \(1497 characters\)
  1986. sed "s/^X//" >'transfig/transfig/txfile.c' <<'END_OF_FILE'
  1987. X#include <stdio.h>
  1988. X#include "transfig.h"
  1989. X
  1990. X/*
  1991. X * create appropriate .tex file
  1992. X */
  1993. Xtexfile(tx, arg_list)
  1994. XFILE *tx;
  1995. Xargument *arg_list;
  1996. X{
  1997. X  enum language to;
  1998. X  argument *a, *arg_l;
  1999. X
  2000. X  for (a = arglist; a; a = a->next) {
  2001. X     to = a->tolang;
  2002. X
  2003. X     /* see if we already have this language */
  2004. X     for (arg_l = arglist; arg_l != a; arg_l = arg_l->next)
  2005. X    if ( arg_l->tolang == to ) break;
  2006. X    
  2007. X     if ( arg_l == a )
  2008. X    switch (to)
  2009. X    {
  2010. X    case pictex:
  2011. X        fprintf(tx, "\\typeout{TransFig: figures in PiCTeX.}\n");
  2012. X        fprintf(tx, "\\input{prepictex}\n");
  2013. X        fprintf(tx, "\\input{pictex}\n");
  2014. X        fprintf(tx, "\\input{postpictex}\n");
  2015. X        break;
  2016. X
  2017. X    case postscript:
  2018. X        fprintf(tx, "\\typeout{TransFig: figures in PostScript.}\n");
  2019. X        break;
  2020. X
  2021. X    case psfig:
  2022. X        fprintf(tx, "\\typeout{TransFig: figures in PostScript w/psfig.}\n");
  2023. X        fprintf(tx, "\\input{psfig}\n");
  2024. X        break;
  2025. X
  2026. X    case latex:
  2027. X        fprintf(tx, "\\typeout{TransFig: figures in LaTeX.}\n");
  2028. X        break;
  2029. X
  2030. X    case eepicemu:
  2031. X        to = eepicemu;
  2032. X
  2033. X    case eepic:
  2034. X#ifdef eemulation
  2035. X        to = eepicemu;
  2036. X#endif
  2037. X
  2038. X    case epic:
  2039. X        fprintf(tx, "\\typeout{TransFig: figures in %s.}\n", lname[(int)to]);
  2040. X        if (to == eepicemu || to == eepic)
  2041. X            fprintf(tx, "\\input{epic.sty}");
  2042. X        fprintf(tx, "\\input{%s.sty}\n", lname[(int)to]);
  2043. X        break;
  2044. X
  2045. X    case tpic:
  2046. X        fprintf(tx, "\\typeout{TransFig: figures in tpic.}\n");
  2047. X        break;
  2048. X
  2049. X    case box:
  2050. X        fprintf(tx, "\\typeout{TransFig: null figures.}\n");
  2051. X        break;
  2052. X
  2053. X    default:
  2054. X        fprintf(tx, "Unknown graphics language %s\n", lname[(int)to]);
  2055. X        exit(1);
  2056. X        break;
  2057. X
  2058. X    }
  2059. X  }
  2060. X}
  2061. END_OF_FILE
  2062. if test 1497 -ne `wc -c <'transfig/transfig/txfile.c'`; then
  2063.     echo shar: \"'transfig/transfig/txfile.c'\" unpacked with wrong size!
  2064. fi
  2065. # end of 'transfig/transfig/txfile.c'
  2066. fi
  2067. echo shar: End of archive 1 \(of 6\).
  2068. cp /dev/null ark1isdone
  2069. MISSING=""
  2070. for I in 1 2 3 4 5 6 ; do
  2071.     if test ! -f ark${I}isdone ; then
  2072.     MISSING="${MISSING} ${I}"
  2073.     fi
  2074. done
  2075. if test "${MISSING}" = "" ; then
  2076.     echo You have unpacked all 6 archives.
  2077.     rm -f ark[1-9]isdone
  2078. else
  2079.     echo You still need to unpack the following archives:
  2080.     echo "        " ${MISSING}
  2081. fi
  2082. ##  End of shell archive.
  2083. exit 0
  2084. -- 
  2085. Please send comp.sources.unix-related mail to rsalz@uunet.uu.net.
  2086. Use a domain-based address or give alternate paths, or you may lose out.
  2087.